home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / boot tools / slowboot / make_bootdisk < prev    next >
Text File  |  1996-04-07  |  3KB  |  140 lines
  1. ; SlowBoot Install script for use with CBM installer.
  2. ; $VER: SlowBoot_Install 1.18
  3.  
  4. (set @default-dest "")
  5.  
  6. (set txt_welcome 
  7.     (cat "This script will install SlowBoot onto a floppy disk\n\n"
  8.          "Do you wish to continue?"
  9.     )
  10. )
  11. (set txt_GetBoot
  12.     (cat "Please enter the name of your boot partition\n\n"
  13.          "For example: DH0:"
  14.     )
  15. )
  16. (set txt_GetFloppy
  17.     (cat "Please enter the floppy drive which will be used to create "
  18.          "the bootdisk\n\n"
  19.          "For example: DF0:"
  20.     )
  21. )
  22. (set txt_GetDelay
  23.     (cat "If the drive has not spun up, how long do you wish to delay "
  24.          "before rebooting?\n\n"
  25.          "For example: 1 second (probably best)"
  26.     )
  27. )
  28. (set txt_Quick
  29.     (cat "How do you wish to format the disk?")
  30. )
  31.  
  32.  
  33. (set help_GetBoot
  34.     (cat "Please enter the name of the partition that you booted from. "
  35.          "This is normally DH0: but you can check by typing "info" at a "
  36.          "shell. This will produce a list of units and there actual "
  37.          "names.\n\n"
  38.          "NEVER enter SYS: for this option.\n\n"
  39.          @askstring-help
  40.     )
  41. )
  42. (set help_GetFloppy
  43.     (cat "Please enter either DF0:, DF1:, DF2: or DF3:\n\n"
  44.          @askstring-help
  45.     )
  46. )
  47. (set help_GetDelay
  48.     (cat "Enter the delay, in seconds\n\n"
  49.          @asknumber-help
  50.     )
  51. )
  52. (set help_Quick
  53.     (cat "If the disk has been formatted before then select Quick, otherwise "
  54.          "pick Full\n\n"
  55.          @askbool-help
  56.     )
  57. )
  58.  
  59.  
  60. (message txt_welcome)
  61.  
  62. (set bootdev
  63.     (askstring
  64.         (prompt txt_GetBoot)
  65.         (help help_GetBoot)
  66.         (default "DH0:")
  67.     )
  68. )
  69.  
  70. (set floppy
  71.     (askstring
  72.         (prompt txt_GetFloppy)
  73.         (help help_GetFloppy)
  74.         (default "DF0:")
  75.     )
  76. )
  77.  
  78. (set bootdelay
  79.     (asknumber
  80.         (prompt txt_GetDelay)
  81.         (help help_GetDelay)
  82.         (range 0 9999999)
  83.         (default 1)
  84.     )
  85. )
  86.  
  87. (if
  88.     (askbool
  89.         (prompt txt_Quick)
  90.         (help help_Quick)
  91.         (choices "Quick" "Full")
  92.         (default 1)
  93.     )
  94.     (
  95.         (run "SYS:System/Format <>CON:////Format/AUTO DRIVE " floppy " NAME Boot FFS NOICONS QUICK")
  96.     )
  97.     (
  98.         (run "SYS:System/Format <>CON:////Format/AUTO DRIVE " floppy " NAME Boot FFS NOICONS")
  99.     )
  100. )
  101.  
  102. (run "Install " floppy " FFS")
  103.  
  104. (copyfiles
  105.     (source "data/disk.info")
  106.     (dest floppy)
  107. )
  108.  
  109. (makedir (tackon floppy "C"))
  110. (makedir (tackon floppy "S"))
  111. (makedir (tackon floppy "DEVS"))
  112.  
  113. (copyfiles
  114.     (source "SlowBoot")
  115.     (dest (tackon floppy "c"))
  116. )
  117.  
  118. (if
  119.     (exists "DEVS:system-configuration" 
  120.         (noreq)
  121.     )
  122.     (copyfiles
  123.         (source "DEVS:system-configuration")
  124.         (dest (tackon floppy "DEVS"))
  125.     )
  126. )
  127.  
  128. (textfile
  129.     (dest (tackon floppy "S/startup-sequence"))
  130.     (append 
  131.         (cat "; SlowBoot startup-sequence version 1.18\n"
  132.              ";\n"
  133.              "C:SlowBoot >NIL: " bootdev " WAIT " bootdelay "\n"
  134.              "EndShell >NIL:\n"
  135.         )
  136.     )
  137. )
  138.     
  139.  
  140.